home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0030_Is there 4DOS installed.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  424b  |  19 lines
  1. (*
  2. From: MIKE DICKSON
  3. Subj: IS There 4DOS
  4. *)
  5.  
  6.         FUNCTION Running4DOS : Boolean;
  7.         VAR Regs : Registers;
  8.         begin
  9.            With Regs do
  10.               begin
  11.                  ax := $D44D;
  12.                  bx := $00;
  13.               end;
  14.            Intr ($2F, Regs);
  15.            if Regs.ax = $44DD then Running4DOS := TRUE
  16.                               else Running4DOS := FALSE
  17.         end;
  18.  
  19.